home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / FILES.SWG / 0029_Check if IS File.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  763b  |  21 lines
  1. {*****************************************************************************
  2.  * Function ...... IsFile()
  3.  * Purpose ....... Checks for the existance of a file
  4.  * Parameters .... sFile      File to check for
  5.  * Returns ....... TRUE if sFile exists
  6.  * Notes ......... None
  7.  * Author ........ Martin Richardson
  8.  * Date .......... May 13, 1992
  9.  *****************************************************************************}
  10. { Checks for existance of a file }
  11. FUNCTION IsFile( sFile: STRING ): BOOLEAN;
  12. VAR s : SearchRec;
  13. BEGIN
  14.      FINDFIRST( sFile, directory, s );
  15.      IsFile := (DOSError = 0) AND
  16.                (s.Attr AND Directory <> Directory) AND
  17.                (POS( '?', sFile ) = 0) AND
  18.                (POS( '*', sFile ) = 0);
  19. END;
  20.  
  21.